$PBExportHeader$w_borra_todos_los_registros.srw
forward
global type w_borra_todos_los_registros from w_abm_detalle
end type
end forward

global type w_borra_todos_los_registros from w_abm_detalle
end type
global w_borra_todos_los_registros w_borra_todos_los_registros

on w_borra_todos_los_registros.create
call super::create
end on

on w_borra_todos_los_registros.destroy
call super::destroy
end on

event ue_borrar;if ib_grabar then 
	if dw_1.RowsMove (1, dw_1.RowCount(), Primary!, dw_1, 1, Delete!) = -1 then
		ib_grabar = FALSE
	end if
end if
If ib_grabar Then
	If dw_1.Update(TRUE, TRUE) <> 1 Then ib_grabar = FALSE
End If

If This.ib_grabar Then
	/* Se cierra al borrar un registro del Detalle */
	This.ib_cerrar_al_grabar = TRUE
Else
	dw_1.RowsMove(1, dw_1.DeletedCount(), Delete!, dw_1, 1, Primary!)
	dw_1.SetRow(1)
End If

end event

event ue_iniciar;integer rtn

	dw_1.uof_Edicion("0", 'N')

	rtn = dw_1.uof_Retrieve(at_op.s_det[])
	If rtn < 0 Then
		guo_app.msg.uof_MostrarMensaje()
		Close(This)
		Return
	End If


dw_1.SetFocus()
end event

event activate;call super::activate;	m_mdi.m_operaciones.m_borrar.Enabled = TRUE
end event

event deactivate;call super::deactivate;	m_mdi.m_operaciones.m_borrar.Enabled = FALSE
end event

